home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue37 / DynArr / Array6U2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-07-03  |  1.1 KB  |  57 lines
  1. unit Array6U2;
  2.  
  3. interface
  4.  
  5. uses
  6.   Classes;
  7.  
  8. type
  9.   TIntegerArray = class
  10.   private
  11.     FElements: TStrings;
  12.     function GetElement(const Index: String): Integer;
  13.     procedure SetElement(const Index: String; const Value: Integer);
  14.   public
  15.     constructor Create;
  16.     destructor Destroy; override;
  17.     property Element[const Index: String]: Integer
  18.       read GetElement write SetElement; default;
  19.     property List: TStrings read FElements;
  20.   end; { TIntegerArray }
  21.  
  22. implementation
  23.  
  24. uses
  25.   SysUtils;
  26.  
  27. constructor TIntegerArray.Create;
  28. begin
  29.   inherited Create;
  30.   FElements := TStringList.Create;
  31. end;
  32.  
  33. destructor TIntegerArray.Destroy;
  34. begin
  35.   FElements.Free;
  36.   FElements := nil;
  37.   inherited Destroy
  38. end;
  39.  
  40. function TIntegerArray.GetElement(const Index: String): Integer;
  41. var
  42.   Value: String;
  43. begin
  44.   Value := FElements.Values[Index];
  45.   if Value = '' then
  46.     Result := 0
  47.   else
  48.     Result := StrToInt(Value)
  49. end;
  50.  
  51. procedure TIntegerArray.SetElement(const Index: String; const Value: Integer);
  52. begin
  53.   FElements.Values[Index] := IntToStr(Value)
  54. end;
  55.  
  56. end.
  57.